home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
WINWORDS
/
SPLT220W.ZIP
/
TESTS
/
T8-10.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-07-21
|
2KB
|
81 lines
10 OPEN "T8-10.PLT" FOR OUTPUT AS #1
20 REM Generalized bar chart
30 REM
40 REM Place chart and label data
50 REM with lower bounds of 1.
60 OPTION BASE 1
70 DIM L$(3),B(3,3)
80 REM
90 DATA United States,South America, Europe
100 DATA 144,177,196,71,101,147,30,75,104
110 READ L$(1),L$(2),L$(3)
120 FOR I=1 TO 3
130 FOR J=1 TO 3
140 READ B(I,J)
150 NEXT J
160 NEXT I
170 REM
180 REM
190 REM
200 PRINT #1,"IN;IP1000,1000,9000,6750;"
210 PRINT #1,"SC1982.3,1986.3,0,500;"
220 REM
230 REM
240 PRINT #1,"SP2;PA1984.3,550;SI.4,.6;CP-10,0;"
250 PRINT #1,"LBSales Volume By Region"+CHR$(3)
260 PRINT #1,"PA1982.3,500;PD1982.3,0,1986.3,0;"
270 REM
280 REM
290 PRINT #1,"PU;SP1;SI.2,.3;TL1.5,0;"
300 FOR X=1983 TO 1985
310 PRINT #1,"PA";X;",0;CP-1.83,-1;LB";X;CHR$(3)
320 NEXT X
330 REM
340 FOR Y=0 TO 500 STEP 100
350 PRINT #1,"PA 1982.3,";Y;";YT;"
360 IF Y=0 THEN PRINT #1,"CP-2.5,-.25;"
370 IF Y<>0 THEN PRINT #1,"CP-4.5,-.25;"
380 PRINT #1,"LB";Y;CHR$(3)
390 NEXT Y
400 PRINT #1,"PA 1982.3,510;LBSales (k$)"+CHR$(3)
410 REM
420 REM
430 FOR I=1 TO 3
440 Y=0
450 FOR J=1 TO I-1
460 Y=Y+B(J,3)
470 NEXT J
480 Y=Y+B(I,3)/2
490 PRINT #1,"PA1985.4,";Y;";"
500 PRINT #1,"CP0,-.25;LB"+L$(I)+CHR$(3)
510 NEXT I
520 REM
530 FOR I=1 TO 3
540 PRINT #1,"SP";I+2;";"
550 K=1
560 FOR X=1983 TO 1985
570 Y1=0
580 REM
590 REM
600 FOR J=1 TO I-1
610 Y1=Y1+B(J,K)
620 NEXT J
630 REM
640 REM
650 Y2=Y1+B(J,K)
660 K=K+1
670 REM
680 IF I=1 THEN PRINT #1,"FT1;"
690 IF I=2 THEN PRINT #1,"FT4,.05,45;"
700 IF I=3 THEN PRINT #1,"FT3,.05,45;"
710 REM
720 REM
730 PRINT #1,"PA";X-.3;",";Y1;";"
740 PRINT #1,"RA";X+.3;",";Y2;";"
750 PRINT #1,"EA";X+.3;",";Y2;";"
760 NEXT X
770 NEXT I
780 REM
790 PRINT #1,"SP0;"
800 END